home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / DEM / D-H / DiskTop Demo.cpt / DiskTop™ Demo / background_5860.txt < prev    next >
Text File  |  1990-01-29  |  2KB  |  92 lines
  1. -- background: 5860 from stack: in
  2. -- bmap block id: 5943
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Main
  6. ----- HyperTalk script -----
  7. on openCard
  8.   hide menubar
  9. end opencard
  10.  
  11.  
  12. on arrowKey
  13.   -- pass arrow key
  14. end arrowKey
  15.  
  16.  
  17.  
  18. -- part 6 (button)
  19. -- low flags: 00
  20. -- high flags: 2000
  21. -- rect: left=380 top=300 right=329 bottom=425
  22. -- title width / last selected line: 0
  23. -- icon id / first selected line: 2442 / 2442
  24. -- text alignment: 1
  25. -- font id: 0
  26. -- text size: 12
  27. -- style flags: 0
  28. -- line height: 16
  29. -- part name: 
  30. ----- HyperTalk script -----
  31. on mouseUp
  32.   set lockscreen to true
  33.   hide card field "Text Plain"
  34.   show card field "HelpText"
  35.   unlock screen with visual effect dissolve
  36. end mouseUp
  37.  
  38.  
  39. -- part 9 (button)
  40. -- low flags: 00
  41. -- high flags: 2000
  42. -- rect: left=467 top=299 right=328 bottom=512
  43. -- title width / last selected line: 0
  44. -- icon id / first selected line: 9632 / 9632
  45. -- text alignment: 1
  46. -- font id: 0
  47. -- text size: 12
  48. -- style flags: 0
  49. -- line height: 16
  50. -- part name: 
  51. ----- HyperTalk script -----
  52. on mouseUp
  53.   answer "Quit to Home or Finder?" with "Cancel" or "Home" or "Finder"
  54.   if it = "Cancel"
  55.   then
  56.   exit mouseUp
  57. end if
  58.  
  59. if it = "Home"
  60. then
  61. visual effect iris open
  62. go home
  63. else
  64.   show menubar
  65.   doMenu "Quit HyperCard"
  66. end if
  67. end mouseUp
  68.  
  69.  
  70.  
  71. -- part 10 (button)
  72. -- low flags: 00
  73. -- high flags: 2000
  74. -- rect: left=424 top=302 right=327 bottom=468
  75. -- title width / last selected line: 0
  76. -- icon id / first selected line: 10668 / 10668
  77. -- text alignment: 1
  78. -- font id: 0
  79. -- text size: 12
  80. -- style flags: 0
  81. -- line height: 16
  82. -- part name: 
  83. ----- HyperTalk script -----
  84. on mouseUp
  85.   global QMExit
  86.  
  87.   visual effect dissolve to black
  88.   visual effect dissolve
  89.   go to QMExit
  90. end mouseUp
  91.  
  92.